home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / sweep11 / swplogic.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  2.9 KB  |  90 lines
  1. unit SwpLogic;
  2.  
  3. interface
  4. uses WinTypes, WinProcs, Messages;
  5. const  WM_SWEEPTIMER  = WM_USER + 100;
  6.        WM_BLANKCELL    = WM_USER + 101;
  7. type
  8.    HSWP     = THandle;
  9.    FLIPPROC = TFarproc;
  10.    SHOWNTYPE   = ( TOP, BOTTOM ) ;
  11.  
  12.    const
  13.      {GMSTATE}
  14.      gmstBADGAMEHANDLE = -7;
  15.      gmstUNKNOWN       = -9;
  16.      gmstWON           =  1;
  17.      gmstLOST           =  2;
  18.      gmstPLAYING       =  3;
  19.      gmstTIMEDOUT      =  4;
  20.      gmstWAITING_AFTERWIN   = 5;
  21.      gmstWAITING_AFTERLOSS  = 6;
  22.      gmstWAITING_AFTERRESET = 7;
  23.  
  24.      logGM_OK              =  1;
  25.      logGMERR_LOST         = -1;
  26.      logGMERR_MEMFAILURE   = -2;
  27.      logGMERR_TOOMANYMINES = -3;
  28.      logGMERR_TOOMANYPIECES= -4;
  29.      logGMERR_GAMENOTINIT  = -5;
  30.      logGMERR_NOTENOUGHBUF = -6;
  31.      logGMERR_BADGAMEHANDLE= -7;
  32.      logGMERR_PIECEALREADYPLAYED = -8;
  33.      logGMERR_UNKNOWN          = -9;
  34.      logGMERR_OUTOFRANGE       = -10;
  35.      logGMERR_INVALIDHWND      = -11;
  36.      logGMERR_TOOMANYGAMES     = -12;
  37.      logGMERR_TIMER            = -13;
  38.      logGMERR_INDEXOUTOFRANGE  = -14;
  39.  
  40.      pvMEMFAILURE     = -2;
  41.      pvBADGAMEHANDLE      = -7;
  42.      pvINVALID_PIECE      =  -1;
  43.      pvUP          =   0;
  44.      pvUPFLAG           =   1;
  45.      pvQUESTIONUP         =   2;
  46.      pvWRONGGUESS       =   3;
  47.      pvANOTHERWRONGGUESS  =   4;
  48.      pvMINE               =   5;
  49.      pvDNFLAG             =   6;
  50.      pvEIGHT              =   7;
  51.      pvSEVEN              =   8;
  52.      pvSIX                =   9;
  53.      pvFIVE               =   10;
  54.      pvFOUR               =  11;
  55.      pvTHREE              =  12;
  56.      pvTWO                =  13;
  57.      pvONE                =  14;
  58.      pvNONE               =  15;
  59.  
  60. function logInitGame (Rows,Cols, Mines : Integer ;
  61.                       hwndTimer : HWnd;
  62.                       var reason : Integer)       : HSWP; far;
  63.  
  64. function logPlay(hsweep : HSWP;    I, J : Integer; Shifted : Integer)   : Integer ;far;
  65. function logGetValue(hsweep : HSWP;I,J : Integer) : Integer; far;
  66.  
  67. function logFreeGame(hsweep : HSWP)               : Integer;far;
  68.  
  69. function logSetFlag(hsweep : HSWP; I, J : Integer): Integer;far;
  70. function logGetSideShown(hsweep : HSWP;
  71.                          I, J : Integer)          : Integer;far;
  72.  
  73. function logGetGameState(hsweep :HSWP )           : Integer; far;
  74. function logGetMineCount(hsweep :HSWP)            : Integer; far;
  75. function logIncrementGameTime(hsweep : HSWP)      : Integer; far;
  76. implementation
  77.   function logInitGame;  external 'SWPLOGIC';
  78.   function logPlay     ; external 'SWPLOGIC';
  79.   function logGetValue ; external 'SWPLOGIC';
  80.   function logFreeGame ; external 'SWPLOGIC';
  81.   function logSetFlag  ; external 'SWPLOGIC';
  82.   function logGetSideShown; external 'SWPLOGIC';
  83.   function logGetGameState; external 'SWPLOGIC';
  84.   function logGetMineCount;external 'SWPLOGIC';
  85.   function logIncrementGameTime;external 'SWPLOGIC';
  86. end.
  87.  
  88.  
  89.  
  90.